(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     11476,        298]
NotebookOptionsPosition[     10850,        273]
NotebookOutlinePosition[     11277,        290]
CellTagsIndexPosition[     11234,        287]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Elastic modulus is in pascals ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{"kg", "/", 
     SuperscriptBox["ms", "2"]}], ")"}], TraditionalForm]]],
 ", thickness in meters, density in ",
 Cell[BoxData[
  FormBox[
   RowBox[{"kg", "/", 
    SuperscriptBox["m", "3"]}], TraditionalForm]]],
 ", and frequency in hertz. Result is in m/s."
}], "Text",
 CellChangeTimes->{{3.5834901851529646`*^9, 3.583490257598181*^9}, {
  3.583490337590181*^9, 3.5834903441661806`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Elasticmodulus", " ", "=", 
   RowBox[{"e", "=", " ", 
    RowBox[{"2", "*", 
     RowBox[{"10", "^", "9"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"platethickness", " ", "=", 
   RowBox[{"h", "=", "0.001"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"density", "=", 
   RowBox[{"\[Rho]", "=", "1200"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"poissonsratio", "=", 
   RowBox[{"v", "=", "0.37"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"frequency", "=", 
   RowBox[{"f", "=", "300"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"angularfreq", "=", 
   RowBox[{"\[Omega]", "=", 
    RowBox[{"2", "*", "Pi", "*", "f"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.583489894874442*^9, 3.5834900270177803`*^9}, {
  3.5834900971557655`*^9, 3.583490105850896*^9}, {3.583490302344181*^9, 
  3.5834903235201807`*^9}, {3.5834919595777893`*^9, 3.583491960564554*^9}, {
  3.583492242260387*^9, 3.5834922430323644`*^9}, {3.5834924251045647`*^9, 
  3.5834924254561777`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"d", "=", 
  RowBox[{"e", "*", 
   RowBox[{
    RowBox[{"h", "^", "3"}], "/", 
    RowBox[{"(", 
     RowBox[{"12", "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"v", "^", "2"}]}], ")"}]}], 
     ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"wavespeed", "=", 
  RowBox[{
   SubscriptBox["c", "B"], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"d", "*", 
      RowBox[{
       RowBox[{"\[Omega]", "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Rho]", "*", "h"}], ")"}]}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "4"}], ")"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.5834900320772743`*^9, 3.583490113170164*^9}}],

Cell[BoxData["0.19310238288340484`"], "Output",
 CellChangeTimes->{{3.5834901079176893`*^9, 3.5834901138850927`*^9}, {
   3.583490325019181*^9, 3.5834903330271807`*^9}, 3.5834919630623026`*^9, 
   3.5834922454449186`*^9, 3.583492428082286*^9, 3.5835839904752274`*^9, 
   3.5835908847310047`*^9}],

Cell[BoxData["27.49806652355445`"], "Output",
 CellChangeTimes->{{3.5834901079176893`*^9, 3.5834901138850927`*^9}, {
   3.583490325019181*^9, 3.5834903330271807`*^9}, 3.5834919630623026`*^9, 
   3.5834922454449186`*^9, 3.583492428082286*^9, 3.5835839904752274`*^9, 
   3.5835908847330046`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"form", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"e", "*", 
      RowBox[{
       RowBox[{"h", "^", "3"}], "/", 
       RowBox[{"(", 
        RowBox[{"12", "*", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"v", "^", "2"}]}], ")"}]}], ")"}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "*", "Pi", "*", "f"}], ")"}], "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Rho]", "*", "h"}], ")"}]}]}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", "form", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"f", ",", " ", "0", ",", " ", "300", ",", " ", "1"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot1", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"t", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"70", ",", "12.6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"70", ",", "13.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"100", ",", "18"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"100", ",", "19"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"150", ",", "22.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"200", ",", "24"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"200", ",", "26"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"300", ",", "30"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"300", ",", "27"}], "}"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"plot1", ",", "plot2", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "300"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "35"}], "}"}]}], "}"}]}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", "\"\<Frequency (Hz) vs. Wavespeed (m/s)\>\""}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.583583942652664*^9, 3.5835841164024076`*^9}, {
  3.5835841673405933`*^9, 3.583584191499486*^9}, {3.5835842907132416`*^9, 
  3.58358431384818*^9}, {3.583584366071842*^9, 3.5835843697199364`*^9}, {
  3.583584400955304*^9, 3.5835845845633698`*^9}, {3.5835846540882215`*^9, 
  3.5835847038041315`*^9}, {3.583584749572858*^9, 3.5835849643172617`*^9}, {
  3.5835849944342947`*^9, 3.5835850893307548`*^9}, {3.583590796782211*^9, 
  3.5835909686753983`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0, 0, 1], PointBox[CompressedData["
1:eJxV13tczfcfB/DT5uc2l8zdTjrlssgqSajhpatrHUUh1alzup/ODeMnP46y
GT/GQ5Ny6RFNsaGmNczGKUQ2tPFYNLOQ5jLX4hfFfn4Pr/cfv/7xePb2Pq/v
9/T9fj7vj1O8MSzhLYVC8YGdQvG/f9/8PJqo+P8fBLvHP6lJfM7fd8T3P2uX
uD+zwxvb49qqmTu3/v0Puhf/fye6H/5YeCAvJrELrcSxYpV5qrI7rcK+KcOT
R5+zp535+T3owVhUWF2u7NqTHoqwPe8uvt+rF+0Cr5OHSq90700P5/WIR6Dh
07tuG271od1wVxH928XKvrQH3l/iqQrP7UeP5PX3pz2xPXdSzya3AfQo5H23
2Sv4sdgLsXZ9coMPvEeP5v0qaW+4HGo13unvQI9Bba+ISJ9q8Vi0hRmmb104
kB7H78eR9kH/oy/cPraJfVGy7umm4x4q+kMUD3rZUrZCPJ7fp3gCaivsNkf2
d6InQmvevWqETgwEhVUdO7mftoLfv9QnoVKZfXjpeGfWJ6Fz2LQlZVm0wg93
st4+duuM1P349xrEuj/yzVFV8Wra6g/rzoOFFZukHoCsfvGxfpekHsC/72DW
A9Hvqeb62Vm0NRCHr4X3v5Et9SA8m7DVxecXqQfxeRjCejCKa/2aqqbT1mBs
2KG+0mGN1CfjeQeXFztPSn0ynx+pT0HMnd6Xno0byvoUuFYtizi6gFZMRcK4
yyV/7ZP6VD5vUp+G0Mml94sc3md9Gmr+dfnSmNm0Yjoy+zTlB66T+nQ+n1Kf
gTOpjx7dapH6DDy+sVy1ws2F9RBEZwxYvUtLW0P4PEs9FPqtq09n/yT1UNQV
t/okKYaxrkamYaKyZhQNNZ9/2qrGqq6Brvo82qZG3R/Nyi9+lP6ZOJT5V/uM
l9I/k+/LcPbPhOuiHyK7aWjbTMyruvnr+Y20Igy2lNtW7woaYXy/pD8MbqsH
295ycmV/GDQV7W+kqmlFOPo27p6ycgWNcL6PtDUcxU7HNMevSn848l88G3a3
8wj2z0JEckF69Vgas/j+0tZZ8Fh0wP6rbNo2CzlVAcNLbdI/Gz99WTjKeF/6
Z/N9/4D9s+Hn19hPFUTbZmP8qLMxvSy0IgKrP/NNOb2DRgTXB+mPwBD/njA0
S38ElrVt89Q5urE/EgFOOd4OU2lEcj2hrZH4YmB++tV82haJ0JMP1jWckf45
0J0/nFP2RPrncP1xZ/8crJuvbtsbSNvmoFPJgXcvGmjFXIQU9VxTtYXGXK5X
0j8Xt08cPN/9jvTPxb0/TuWUdfRg/zwcC7FrX6WkMY/rG22dh4uN0/IKAmjb
POwPtFpS5kh/FOrXNC0aoJf+KK6H0h+FLg9bQ7yzpT8KUTGJ1TuLpH8+Cluv
HHp2RPrnc/2U/vlw6WIcGlMv/fNR8qrHeHOT9EdDY3e12dB+JPujud7S1mjs
a3TXuo6gbdGIOpFTeHcCrYiB+9anuZtnSn8M12fpj8FKa2FRyUfSH4MvfbaN
d1wj/bEIevHwk4xt0h/L9Vz6Y/FOp66q1uPSH4tS28cNA3+Rfg1C1ecCPBpo
lYbrv3yeBnWJ35QrO3q+sUaDI0eUni39aasGs3yanSpd6QIN9wvapsHKAXNd
nEPpeg3Cn5ftOqyhFXFwqBsyZ4KFVsVxf6ERB0f19ZH9Nkt+HKb8fPagvkjy
49Cs6+Py9SHJj+N+JPlxmHe0Q0HnOsmPw4/7L7Y43pP8eCTfi3wypE3y47l/
jWJ+PLw8itPaDaQ18ahc/r3v7260NR7+s96fUTyRLojnfkfb4tF7y9Bz3ePo
+njUJn/zyQEzrdDix9Gb+k7MpFVa7o+Sr8UiT3OId6Hka1F4arPPjjLJ12Lc
7ci1z05Ivpb7qeRr8fODS3XWBsnXYoz7VIeDzZKvw7OTtUG/tvNivo77Lw0d
tpT0OPefwbRGh6ZppqSnXrRVh0eeM3WNAXSBjvs1bdNhcebl1l06ul73ev9d
UWNYSCsSEDa+JMNtleQncH+X/ASkVj08uaZQ8hOgHLUjb0iZ5Cegw0r7g+WV
kp/AeUDyE7B49LC+ZdclPwGZmulbVI8lPxF9r3pVZr6e297kJ3J+oJGItR3V
GUMcaU0iZnupfBLdaGsi9g5vbrd9PF2QyHmDtiWi5ld35Z9RdH0i/uy2Pqct
lVYkocj/6pIOSyU/ifOJ5CfB26Xm3Mstkp+EMcFP0+4USX4SRjrbV58tl/wk
zjOSn4TY6raexouSn4Tt73R09bwh+cmo27Q8/N4jyU/m/CP5yRj9hbsLunkz
PxltWZ+0/qakrcnI/ibLzeBKFyRzXqJtyajo++DVosl0fTIKNlgr7kXQihRY
urZ3m5NAq1I4X9FIgSp97/TemZKfgh5e/ZwTN0p+CjJOOdzeny/5KZzHJD8F
p9p5rHU+Kvkp2HPz8urQaslPxYRjYUcW1Ep+Kuc3yU9FmuPRlp1Nkp+K9e8d
GLrPbgzzU3G9aNmZ/d3pglTOe7QtFY77C3dvcaXrU3EtPevvFeNoRRq6XAjp
rAmmVWmcD2mk4dvJp9M7aGlNGvZcyrl53iT5aegZkhvw2XLJT+M8Kflp2GXY
rXiaJ/lp+En58eLtxZKvh489enxYLvl6zp+Sr0d4lw9vamskX4/7IX29//pd
8vX4bunb1/X3JF/PeVXy9bhQttcS2X4s8/V4MbLWUtGTVqTjVvbLl4OcaFU6
51sa6WjouK3xF19ak44O4ab5jlNoazpKnrSu10XQBemch2lbOowxn4ZfMUl+
OpbpbrzquFzyDUgYXPT5yH9LvoHzs+Qb8K+Hp/el75Z8w+sdYU3gyoOSb0BG
ecbT9ccl38B5W/IN8C9aUrXpiuQbcFn7qm1to+QbMTt336JlTZJv5Hw+jvlG
zGiZHDmtK60xIims9pLLANpqRAsu/PD3ULrAyHmethmhsnN4kQe63oiaZv+4
6Bm0wgSHhYujBsyj7U2c/2mVCRe+znFfuYD2MOHzbzcoXa1yfSYsXlpaeX4d
rTbxvCDXa0LlrszYt4tokwn511Ynf35Qrt+EpkHRoY7H6Y0mni/kfkzoccm1
zvkyXWrCWE31hm0Ncn+vP796RVC3x3SNiecRuV8TJhlzr1zv5PPGj0zoNbyl
yq8PrTDjULC+doczbW/m+YVWmTE29etMP1/aw4yXVdc/WBdMw4xJ5beUNeG0
2szzDq0xI++HiMYgPW0yw65lXc0/l9BWM1Iyhg0sXkVvNPN8RBeY8fxQ3FuP
t9OlZqjOjNnTdS9tM2PPhDsXBpfTNWaep+h6MxZezKn0Oyf3b4b6o8DtU67I
/VsQ8Nir97Rbcv8Wnr/k/i3wDfvUbsJLuX8LnBY4ZLl38uX9W9DmH2F7rzet
tvC8RmsseFCduqZhBG2y4MymNueKsbTVgsgN+dm5AfRGC893dIEFg7662mvs
fLrUgj4ZRzwVybTNgiZvF78TC+gaC8+DvvgvUuY7WQ==
      "]]}, {}}, {{}, 
    {RGBColor[1, 0, 0], 
     PointBox[{{70., 12.6}, {70., 13.3}, {100., 18.}, {100., 19.}, {150., 
      22.5}, {200., 24.}, {200., 26.}, {300., 30.}, {300., 27.}}]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotLabel->FormBox[
   "\"Frequency (Hz) vs. Wavespeed (m/s)\"", TraditionalForm],
  PlotRange->{{0, 300}, {0, 35}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5835845850245085`*^9, {3.583584670815238*^9, 3.5835847042922783`*^9}, {
   3.5835848217024903`*^9, 3.5835848481174126`*^9}, {3.5835849247433934`*^9, 
   3.583584951921544*^9}, 3.5835849985395255`*^9, {3.5835850540811834`*^9, 
   3.583585089764885*^9}, {3.583590810243557*^9, 3.5835909099825296`*^9}, {
   3.5835909428818192`*^9, 3.5835909696154923`*^9}}]
}, Open  ]]
},
WindowSize->{707, 649},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb",
PrivateNotebookOptions -> {
 "VersionedStylesheet" -> {"Default.nb"[8.] -> False}}
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 496, 15, 31, "Text"],
Cell[1056, 37, 1069, 26, 132, "Input"],
Cell[CellGroupData[{
Cell[2150, 67, 687, 23, 52, "Input"],
Cell[2840, 92, 295, 4, 30, "Output"],
Cell[3138, 98, 293, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3468, 107, 2865, 81, 192, "Input"],
Cell[6336, 190, 4498, 80, 261, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
